home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Run Magazine ReRun 1985 Fall
/
rerun-1985-fall.d64
/
banner maker
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
3KB
|
65 lines
10 rem: c-64 big letter messager
20 rem: written by jim bernard
30 forx=28656to28883:reada:pokex,a:ck=ck+a:next
35 forx=49152to49231:reada:pokex,a:ck=ck+a:next
40 ifck<>35750thenprint"data error":end
45 printchr$(147)
60 poke52,48:poke56,48:poke56334,peek(56334)and254:poke1,peek(1)and251
70 fori=0to511:pokei+10000,peek(i+53248):next
80 poke1,peek(1)or4:poke56334,peek(56334)or1
90 sys28672
100 gosub1000:poke53272,28:poke53270,207
105 sys49152
110 lw=1502:ly=1503:lx=1542:lz=1543
120 cl=55774:cy=55775:cx=55814:cz=55815
140 r=8:q=peek(m):m=m+1:ifq>95thenm=50001:goto140
150 ifq>63thenq=q-64
160 w=q*2:x=q*2+1:y=q*2+128:z=q*2+129
165 ift>1then180
170 ifpeek(253)=>nn+2then180
172 ifpeek(253)<nnthennn=-2
175 goto170
180 pokelw,w:pokely,y:pokelx,x:pokelz,z
190 pokecl,r:pokecy,r:pokecx,r:pokecz,r
195 poke781,0:poke780,0:poke782,0:sys65499
196 nn=peek(253):goto140
200 rem - machine language data
205 data 24,173,3,112,105,8,141,3,112,201,0,208,3,238,4,112
210 data 162,0,189,16,39,72,74,74,74,74,168,185,155,112,157,0,48,157,1,48,104
215 data 41,15,168,185,155,112,157,0,52,157,1,52,232,238,15,112,238,18,112,238
220 data 28,112,238,31,112,224,8,208,208,24,173,15,112,105,8,141,15,112,24,173
230 data 18,112,105,8,141,18,112,24,173,28,112,105,8,141,28,112,24,173,31,112
240 data 105,8,141,31,112,201,1,208,12,238,16,112,238,19,112,238,29,112,238,32
250 data 112,173,32,112,201,56,240,3,76,240,111,169,0,141,15,112,141,28,112,169
260 data 1,141,18,112,141,31,112,169,48,141,16,112,141,19,112,169,52,141
270 data 29,112,141,32,112,169,16,141,3,112,169,39,141,4,112,96,0,3,12,15,48
280 data 51,60,63,192,195,204,207,240,243,252,255,0,162,0,160,1,185,112,7,157
290 data 112,7,185,152,7,157,152,7,185,112,219,157,112,219,185,152,219,157,152
300 data 219,232,200,192,40,208,226,169,7,141,22,208,96
310 data 120,169,17,141,20,3,169,192,141,21,3,88,169,8,133,251,96,166,251,202
320 data 142,22,208,224,255,240,5,134,251,76,49,234,169,7,133,251,162,0,160,1
330 data 185,184,5,157,184,5,185,224,5,157,224,5,185,184,217,157,184,217,185
340 data 224,217,157,224,217,232,200,192,40,208,226,169,7,141,22,208,230,253
350 data 76,49,234
1000 rem: collect up to 3200 characters for display
1005 print:print"instructions - enter up to 2 full lines at each '?' prompt, ";
1010 print"then press 'return'.":print"enter '*' at a prompt when finished."
1020 print:print"there will be up to 40 prompts by which to enter text.":print
1025 dimm$(40):m=50001:forx=1to40
1030 inputm$(x):ifm$(x)="*"thengoto1055
1040 ifm$(x)=""then1030
1045 fory=1tolen(m$(x)):as=asc(mid$(m$(x),y,1))
1046 ifas<32oras>95thennext
1047 ifas=64thenas=0
1048 ifas>90andas<96thenas=as-64
1049 pokem,as:m=m+1:next
1050 pokem,32:m=m+1:next
1055 print:print"message in memory with";:zn=m-50000
1060 printzn;"characters."
1065 forx=1to3:pokem,46:m=m+1:next:pokem,32:m=m+1:pokem,96
1070 print:print"press 'shift' to begin"
1080 wait 653,1,0
1090 poke53280,0:poke53281,0
1095 printchr$(147)
1099 m=50001:return